Make function-alias-p use a better error symbol

* lisp/subr.el (function-alias-p): Use the same error symbol as
`indirect-function'.

diff --git a/lisp/subr.el b/lisp/subr.el
index b0d2ab623b1a31f637694e8a015645171846fe8c..dd260dfe418ef26fcc0b28490c4fc869a0e2854e 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -6555,7 +6555,7 @@ signalled.  If NOERROR, the non-loop parts of the chain is returned."
                    (eq func orig-func))
            (if noerror
                (throw 'loop chain)
-             (error "Alias loop for `%s'" orig-func)))
+             (signal 'cyclic-function-indirection (list orig-func))))
          (push func chain))
        chain))))